home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / prg_gen / cobfd.zip / COBELEM.COB < prev    next >
Text File  |  1996-11-22  |  11KB  |  222 lines
  1.       * COBELEM.COB
  2.       * Demonstration file for Tal Systems' COBFD Cobol FD Analyzer.
  3.       * This file contains samples of all the various data types
  4.       * so the user can see how the program represents them.
  5. ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
  6.       * Recognized Compiler Directives:
  7.        COPY MyLIB
  8.        ++INCLUDE MYFILE
  9.        SKIP1.
  10.        SKIP2.
  11.        EJECT
  12.       *
  13.        01   UNSIGNED-NUMERICS.
  14.          03  DISPLAY-NUMERIC.
  15.           05  A                     PIC   9(01).
  16.           05  A                     PIC   9(02).
  17.           05  A                     PIC   9(03).
  18.           05  A                     PIC   9(04).
  19.           05  A                     PIC   9(05).
  20.           05  A                     PIC   9(06).
  21.           05  A                     PIC   9(07).
  22.           05  A                     PIC   9(08).
  23.           05  A                     PIC   9(09).
  24.           05  A                     PIC   9(10).
  25.           05  A                     PIC   9(11).
  26.           05  A                     PIC   9(12).
  27.           05  A                     PIC   9(13).
  28.           05  A                     PIC   9(14).
  29.           05  A                     PIC   9(15).
  30.          03 COMP-NUMERIC.
  31.           05  A                     PIC   9(01) COMP.
  32.           05  A                     PIC   9(02) COMP.
  33.           05  A                     PIC   9(03) COMP.
  34.           05  A                     PIC   9(04) COMP.
  35.           05  A                     PIC   9(05) COMP.
  36.           05  A                     PIC   9(06) COMP.
  37.           05  A                     PIC   9(07) COMP.
  38.           05  A                     PIC   9(08) COMP.
  39.           05  A                     PIC   9(09) COMP.
  40.           05  A                     PIC   9(10) COMP.
  41.           05  A                     PIC   9(11) COMP.
  42.           05  A                     PIC   9(12) COMP.
  43.           05  A                     PIC   9(13) COMP.
  44.           05  A                     PIC   9(14) COMP.
  45.           05  A                     PIC   9(15) COMP.
  46.         03  COMP-3-NUMERIC.
  47.           05  A                     PIC   9(01) COMP-3.
  48.           05  A                     PIC   9(02) COMP-3.
  49.           05  A                     PIC   9(03) COMP-3.
  50.           05  A                     PIC   9(04) COMP-3.
  51.           05  A                     PIC   9(05) COMP-3.
  52.           05  A                     PIC   9(06) COMP-3.
  53.           05  A                     PIC   9(07) COMP-3.
  54.           05  A                     PIC   9(08) COMP-3.
  55.           05  A                     PIC   9(09) COMP-3.
  56.           05  A                     PIC   9(10) COMP-3.
  57.           05  A                     PIC   9(11) COMP-3.
  58.           05  A                     PIC   9(12) COMP-3.
  59.           05  A                     PIC   9(13) COMP-3.
  60.           05  A                     PIC   9(14) COMP-3.
  61.           05  A                     PIC   9(15) COMP-3.
  62.         03 COMP-4-NUMERIC.
  63.           05  A                     PIC   9(01) COMP-4.
  64.           05  A                     PIC   9(02) COMP-4.
  65.           05  A                     PIC   9(03) COMP-4.
  66.           05  A                     PIC   9(04) COMP-4.
  67.           05  A                     PIC   9(05) COMP-4.
  68.           05  A                     PIC   9(06) COMP-4.
  69.           05  A                     PIC   9(07) COMP-4.
  70.           05  A                     PIC   9(08) COMP-4.
  71.           05  A                     PIC   9(09) COMP-4.
  72.           05  A                     PIC   9(10) COMP-4.
  73.           05  A                     PIC   9(11) COMP-4.
  74.           05  A                     PIC   9(12) COMP-4.
  75.           05  A                     PIC   9(13) COMP-4.
  76.           05  A                     PIC   9(14) COMP-4.
  77.           05  A                     PIC   9(15) COMP-4.
  78.         03 COMP-5-NUMERIC.
  79.           05  A                     PIC   9(01) COMP-5.
  80.           05  A                     PIC   9(02) COMP-5.
  81.           05  A                     PIC   9(03) COMP-5.
  82.           05  A                     PIC   9(04) COMP-5.
  83.           05  A                     PIC   9(05) COMP-5.
  84.           05  A                     PIC   9(06) COMP-5.
  85.           05  A                     PIC   9(07) COMP-5.
  86.           05  A                     PIC   9(08) COMP-5.
  87.           05  A                     PIC   9(09) COMP-5.
  88.           05  A                     PIC   9(10) COMP-5.
  89.           05  A                     PIC   9(11) COMP-5.
  90.           05  A                     PIC   9(12) COMP-5.
  91.           05  A                     PIC   9(13) COMP-5.
  92.           05  A                     PIC   9(14) COMP-5.
  93.           05  A                     PIC   9(15) COMP-5.
  94.  
  95.        01   SIGNED-NUMERICS.
  96.         03 SIGNED-DISPLAY-NUMERICS.
  97.           05  A                     PIC   S9(01).
  98.           05  A                     PIC   S9(02).
  99.           05  A                     PIC   S9(03).
  100.           05  A                     PIC   S9(04).
  101.           05  A                     PIC   S9(05).
  102.           05  A                     PIC   S9(06).
  103.           05  A                     PIC   S9(07).
  104.           05  A                     PIC   S9(08).
  105.           05  A                     PIC   S9(09).
  106.           05  A                     PIC   S9(10).
  107.           05  A                     PIC   S9(11).
  108.           05  A                     PIC   S9(12).
  109.           05  A                     PIC   S9(13).
  110.           05  A                     PIC   S9(14).
  111.           05  A                     PIC   S9(15).
  112.         03 COMP-SIGNED-NUMERICS.
  113.           05  A                     PIC   S9(01) COMP.
  114.           05  A                     PIC   S9(02) COMP.
  115.           05  A                     PIC   S9(03) COMP.
  116.           05  A                     PIC   S9(04) COMP.
  117.           05  A                     PIC   S9(05) COMP.
  118.           05  A                     PIC   S9(06) COMP.
  119.           05  A                     PIC   S9(07) COMP.
  120.           05  A                     PIC   S9(08) COMP.
  121.           05  A                     PIC   S9(09) COMP.
  122.           05  A                     PIC   S9(10) COMP.
  123.           05  A                     PIC   S9(11) COMP.
  124.           05  A                     PIC   S9(12) COMP.
  125.           05  A                     PIC   S9(13) COMP.
  126.           05  A                     PIC   S9(14) COMP.
  127.           05  A                     PIC   S9(15) COMP.
  128.         03 COMP-3-SIGNED-NUMERICS.
  129.           05  A                     PIC   S9(01) COMP-3.
  130.           05  A                     PIC   S9(02) COMP-3.
  131.           05  A                     PIC   S9(03) COMP-3.
  132.           05  A                     PIC   S9(04) COMP-3.
  133.           05  A                     PIC   S9(05) COMP-3.
  134.           05  A                     PIC   S9(06) COMP-3.
  135.           05  A                     PIC   S9(07) COMP-3.
  136.           05  A                     PIC   S9(08) COMP-3.
  137.           05  A                     PIC   S9(09) COMP-3.
  138.           05  A                     PIC   S9(10) COMP-3.
  139.           05  A                     PIC   S9(11) COMP-3.
  140.           05  A                     PIC   S9(12) COMP-3.
  141.           05  A                     PIC   S9(13) COMP-3.
  142.           05  A                     PIC   S9(14) COMP-3.
  143.           05  A                     PIC   S9(15) COMP-3.
  144.        03 COMP-4-SIGNED-NUMERICS.
  145.           05  A                     PIC   S9(01) COMP-4.
  146.           05  A                     PIC   S9(02) COMP-4.
  147.           05  A                     PIC   S9(03) COMP-4.
  148.           05  A                     PIC   S9(04) COMP-4.
  149.           05  A                     PIC   S9(05) COMP-4.
  150.           05  A                     PIC   S9(06) COMP-4.
  151.           05  A                     PIC   S9(07) COMP-4.
  152.           05  A                     PIC   S9(08) COMP-4.
  153.           05  A                     PIC   S9(09) COMP-4.
  154.           05  A                     PIC   S9(10) COMP-4.
  155.           05  A                     PIC   S9(11) COMP-4.
  156.           05  A                     PIC   S9(12) COMP-4.
  157.           05  A                     PIC   S9(13) COMP-4.
  158.           05  A                     PIC   S9(14) COMP-4.
  159.           05  A                     PIC   S9(15) COMP-4.
  160.         03  COMP-5-SIGNED-NUMERICS.
  161.           05  A                     PIC   S9(01) COMP-5.
  162.           05  A                     PIC   S9(02) COMP-5.
  163.           05  A                     PIC   S9(03) COMP-5.
  164.           05  A                     PIC   S9(04) COMP-5.
  165.           05  A                     PIC   S9(05) COMP-5.
  166.           05  A                     PIC   S9(06) COMP-5.
  167.           05  A                     PIC   S9(07) COMP-5.
  168.           05  A                     PIC   S9(08) COMP-5.
  169.           05  A                     PIC   S9(09) COMP-5.
  170.           05  A                     PIC   S9(10) COMP-5.
  171.           05  A                     PIC   S9(11) COMP-5.
  172.           05  A                     PIC   S9(12) COMP-5.
  173.           05  A                     PIC   S9(13) COMP-5.
  174.           05  A                     PIC   S9(14) COMP-5.
  175.           05  A                     PIC   S9(15) COMP-5.
  176.  
  177.         03  COMP-X-NUMERICS.
  178.           05  A                     PIC   9(01) COMP-X.
  179.           05  A                     PIC   9(02) COMP-X.
  180.           05  A                     PIC   9(03) COMP-X.
  181.           05  A                     PIC   9(04) COMP-X.
  182.           05  A                     PIC   9(05) COMP-X.
  183.           05  A                     PIC   9(06) COMP-X.
  184.           05  A                     PIC   9(07) COMP-X.
  185.           05  A                     PIC   9(08) COMP-X.
  186.           05  A                     PIC   9(09) COMP-X.
  187.           05  A                     PIC   9(10) COMP-X.
  188.           05  A                     PIC   9(11) COMP-X.
  189.           05  A                     PIC   9(12) COMP-X.
  190.           05  A                     PIC   9(13) COMP-X.
  191.           05  A                     PIC   9(14) COMP-X.
  192.           05  A                     PIC   9(15) COMP-X.
  193.          03  COMP-X-ALPHA.
  194.           05  A                     PIC   X(01) COMP-X
  195.           05  A                     PIC   X(02) COMP-X.
  196.           05  A                     PIC   X(03) COMP-X.
  197.           05  A                     PIC   X(04) COMP-X.
  198.           05  A                     PIC   X(05) COMP-X.
  199.           05  A                     PIC   X(06) COMP-X.
  200.           05  A                     PIC   X(07) COMP-X.
  201.           05  A                     PIC   X(08) COMP-X.
  202.           05  A                     PIC   X(09) COMP-X.
  203.           05  A                     PIC   X(10) COMP-X.
  204.           05  A                     PIC   X(11) COMP-X.
  205.           05  A                     PIC   X(12) COMP-X.
  206.           05  A                     PIC   X(13) COMP-X.
  207.           05  A                     PIC   X(14) COMP-X.
  208.           05  A                     PIC   X(15) COMP-X.
  209.  
  210.  
  211.        01 VARIOUS-ALPHANUMERIC-PICTURES.
  212.           05  PIC-Z-IN-NUMERICS     PIC Z(9)V99.
  213.           05  BLANKS-IN-NUMERICS    PIC BB9(6)V99B.
  214.           05  SEPARATE-LEADING-SIGN PIC S9(6)
  215.                                     SIGN IS SEPARATE LEADING.
  216.           05  COMMON-DATE-EDIT      PIC Z9/99/99.
  217.           05  COMMON-TIME-EDIT      PIC Z9:99:99.
  218.           05  PIC-X-WITH-VALUES     PIC X(25) VALUE
  219.                 "COMP-3 REDEFINES" .
  220.  
  221.       * END OF SAMPLE DATA FILE COBELEM.COB
  222.